(shell-dirstack-message): Pass proper format string to message.

diff --git a/lisp/shell.el b/lisp/shell.el
index 7e7e17f39fb8358adda92eee823a5e3555a7199f..06a7293af4abbf1475ddebc6c62d3b3f3204a771 100644 (file)
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -648,7 +648,7 @@ command again."
             (setcar ds dir))
        (setq msg (concat msg (directory-file-name dir) " "))
        (setq ds (cdr ds))))
-    (message msg)))
+    (message "%s" msg)))
 \f
 (defun shell-forward-command (&optional arg)
   "Move forward across ARG shell command(s).  Does not cross lines.